home *** CD-ROM | disk | FTP | other *** search
/ Libris Britannia 4 / science library(b).zip / science library(b) / PROGRAMM / DB_CLIPP / 0643A.ZIP / BROWSE / 2SCREEN.PRG < prev   
Text File  |  1987-04-06  |  2KB  |  65 lines
  1.  *** 2SCREEN.PRG   Pans 2 screens
  2.   
  3.  SET TALK OFF
  4.  USE 2SCREEN
  5.  * (SAMPLE .dbf for testing)
  6.  PRIV yrclient,sp,head1,head2,fld1,fld2
  7.  yrclient='[ABC COMPANY - PURCHASER FILE]'
  8.  sp=SPAC(2)
  9.  head1=' REC#  COMPANY NAME-------------'+'  CONTACT NAME--------'+'  CONTACT TITLE---------  '
  10.  head2=' REC#  CO NAME (ABBREV)----  '+'STREET ADDRESS---------  '+'  CITY---------- ST ZIP--'
  11.  fld1='STR(RECN(),4)+sp+Co+sp+Name+sp+Titl'
  12.  fld2='STR(RECN(),4)+sp+SUBS(Co,1,20)+sp+'+'STR+sp+City+" "+St+" "+Zip'
  13.  * you customize above 6 variables
  14.   
  15.  PRIV scr,sk,xkwy1,xkey2,crec,ans
  16.  scr="1"
  17.  xk='  3,  5, 13, 18, 24, 27, 88,101,120'
  18.  xkey1='  2,  4,'+xk
  19.  xkey2=' 19, 26,'+xk
  20.  CLEA
  21.  SET ESCAPE OFF
  22.  @ 1,0 TO 3,79 DOUBLE
  23.  @2,(40-LEN(yrclient)/2) SAY yrclient
  24.   
  25.  DO WHILE .T.
  26.     @ 4,0 CLEA
  27.     @ 4,0 SAY head&scr
  28.     @ 5,0 TO 5,79
  29.     crec=RECN()
  30.     cfld=fld&scr
  31.     DISP OFF NEXT 15 &cfld
  32.     IF .NOT. EOF()
  33.        SKIP
  34.     ENDIF
  35.     @ 23,0 TO 23,79
  36.     @ 24,4 SAY IIF(EOF(),"END OF FILE","MORE: PGDN")+"      PGUP"
  37.     @ 24,32 SAY IIF(SCR="1",CHR(26)+" LEFT",CHR(27)+" RIGHT")+" SCREEN"
  38.     @ 24,55 SAY "E<x>IT OR <ESC>cape      "
  39.     ans="  0"
  40.     DO WHILE .NOT. ans$xkey&scr
  41.        ans=STR(INKE(),3)
  42.     ENDDO
  43.      
  44.     DO CASE
  45.     CASE ans$'  2,  4, 19, 26'
  46.        scr=IIF(ans$"  2,  4","2","1")
  47.        GOTO crec
  48.     CASE ans$'  5, 18'
  49.        GOTO crec
  50.        temp=0
  51.        DO WHIL temp<15 .AND. .NOT. BOF()
  52.           SKIP -1
  53.           temp=temp+1
  54.        ENDDO
  55.     CASE ans$' 27, 88,120' .OR. EOF()
  56.        EXIT
  57.     ENDCASE
  58.  ENDDO
  59.   
  60.  USE
  61.  SET ESCAPE ON
  62.  SET TALK ON
  63.  * above 3 lines for testing only
  64.  @ 23,0 clea
  65.  RETURN